home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9104a.d64 / error analyz.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  122 lines
  1. 10 POKE1,55:SYS36864
  2. 20 .OPT OO
  3. 30 *= $C000
  4. 100 TMP =2
  5. 102 STROUT =$AB1E
  6. 104 KONF =1
  7. 106 ALT =42115
  8. 108 ALTL =$A71A
  9. 110 SYNTAX =44808
  10. 112 OUTMEM =42037
  11. 114 ILLQUAN =$B248
  12. 116 ERROR =42039
  13. 1000 LDA KONF:AND #3:CMP #3:BCC FERTIG
  14. 1001 LDY #0:STY TMP:LDA #160:STA TMP+1:LDX #32
  15. 1002 COPYROM LDA (TMP),Y:STA (TMP),Y:INY:BNE COPYROM:INC TMP+1:DEX:BNE COPYROM
  16. 1004 LDX #0
  17. 1006 COPYP LDA ROMPOS,X:STA TMP:LDA ROMPOS+1,X:STA TMP+1:BEQ FERTIG:LDY #0
  18. 1008 LDA #76:STA (TMP),Y:LDA RAMPOS,X:INY:STA (TMP),Y
  19. 1010 LDA RAMPOS+1,X:INY:STA (TMP),Y:INX:INX:BNE COPYP
  20. 1012 FERTIG LDA KONF:AND #252:ORA #2:STA KONF
  21. 1014 LDA #5:STA $B78F:LDA #144:STA $A740:LDA #1:STA $A369
  22. 1016 LDA #<HI:LDY #>HI:JMP STROUT
  23. 1020 HI .ASC "[147]   ***  ERROR ANALYZER V2.0  C64  ***
  24. 1022 .BYT 13
  25. 1024 .[198] " BY NIKOLAUS HEUSLER  (C) NH-250490-ARR":.BYT 13,0
  26. 1100 ROM[185] .W[176] $A471,$A6D4,$A851,$B0C8,$A3FB
  27. 1102 .W[176] $AEFF,$B7A4,$A807,$AD9B,$AB02,$B1C9,$B1BB
  28. 1104 .W[176] $B7F7,$ADCB,$B441,$B9F1,$AB5F,$A953,$A97B
  29. 1106 .W[176] $AA24,$B09C,$A80B,$B138,0
  30. 1110 RAM[185] .W[176] [155]P,CACHE,[144]F,PROZENT,STACK
  31. 1112 .W[176] [189]ECT,LESS,FURTHER,TYPE,BRACKET,BEREICH,[185]I
  32. 1114 .W[176] [181]GR,TWICE,EXTRA2,NEGA,[161]ERR,[145],[155]
  33. 1116 .W[176] TEI,[136],[136],RVAR
  34. 1200 T1 .[198] "% VARIABLES DISALLOWED":BRK
  35. 1202 T2 .[198] "STACK OVERFLOW":BRK
  36. 1204 T3 .[198] " EXPECTED":BRK
  37. 1206 T4 .[198] "MUST BE 255 OR LESS":BRK
  38. 1208 T5 .[198] "EXTRA CHARACTERS":BRK
  39. 1210 T6 .[198] "STRING EXPECTED":BRK
  40. 1212 T7 .[198] "NUMERIC TYPE EXPECTED":BRK
  41. 1214 T8 .[198] "MISSING )":BRK
  42. 1216 T9 .[198] "MUST BE -32768 TO 32767":BRK
  43. 1218 TA .[198] "MUST BE POSITIVE":BRK
  44. 1220 TB .[198] "MUST BE 0 TO 65535":BRK
  45. 1222 TC .[198] "OPERATOR USED TWICE":BRK
  46. 1224 TD .[198] "NUMBER EXPECTED":BRK
  47. 1226 TE .[198] "GOTO OR GOSUB EXPECTED":BRK
  48. 1228 TF .[198] "MUST BE 63999 OR LESS":BRK
  49. 1230 TG .[198] "TI$ FORMAT WRONG":BRK
  50. 1232 TH .[198] "LETTER EXPECTED":BRK
  51. 1234 TI .[198] "RESERVED VARIABLE":BRK
  52. 2000 [155]P JSR $BDC2:LDA 122:STA MEM:LDA 123:STA MEM[170]1
  53. 2004 LDA #[179]NEU:STA 770:LDA #[177]NEU:STA 771:JMP $A474
  54. 2006 MEM .W[176] 0
  55. 2007 MM BRK
  56. 2008 MERK BRK
  57. 2009 FLAG BRK
  58. 2010 NEU LDA #[179]ALT:STA 770:LDA #[177]ALT:STA 771
  59. 2011 LDA #"ON":JSR $FFD2:JSR $FFD2:LDA #0:STA 211
  60. 2012 LDA #[179][155]NEU:STA 774:LDA #[177][155]NEU:STA 775:LDA #96:STA $A714
  61. 2013 LDA 57:STA 20:LDA 58:STA 21:JSR $A613:LDA #0:STA FLAG:JSR $A6C9
  62. 2015 JSR $E701:LDA MERK:STA 211:LDA #76:STA $A714
  63. 2016 LDA #[179]ALTL:STA 774:LDA #[177]ALTL:STA 775
  64. 2017 LDA #1:STA 198:LDA #"":STA 631:LDA #"ON":JSR $FFD2:JMP (770)
  65. 2020 [155]NEU PHP:PHA:TYA:CLC:ADC $5F:PHA:LDA $60:ADC #0:STA MM
  66. 2022 PLA:CMP MEM:BNE AEAE:LDA MM:CMP MEM[170]1:BNE AEAE
  67. 2024 LDA 211:STA MERK:INC FLAG
  68. 2026 AEAE PLA:PLP:JMP ALTL
  69. 2050 [144]F JSR STROUT:LDY 58:INY:BEQ L3:JSR 48578
  70. 2052 L3 JMP 42100
  71. 2100 CACHE LDA FLAG:BNE WARS:LDA 211:STA MERK
  72. 2102 WARS JSR $AAD7:JMP $A6D7
  73. 2200 INIT JSR $FFCC:LDA #0:STA 19:JSR $AAD7:INC 199:RTS
  74. 2300 PROZENT LDA 16:BNE LAB3:JMP 45260
  75. 2302 LAB3 JSR INIT:LDA #[179]T1:LDY #[177]T1
  76. 2304 SYN JSR STROUT:JMP SYNTAX
  77. 2350 STACK ASL:ADC #58:BCS L8:STA 34:TSX:CPX 34:BCC L8:RTS
  78. 2352 L8 JSR INIT:LDA #[179]T2:LDY #[177]T2:JSR STROUT:JMP OUTMEM
  79. 2400 [189]ECT LDY #0:CMP (122),Y:BNE LA3:JMP 115
  80. 2402 LA3 PHA:JSR INIT:PLA:CMP #178:BEQ EST:CMP #$A7:BEQ T[167]:CMP #$A4:BEQ T[203]
  81. 2403 CMP #165:BNE OUT:LDA #"F":JSR $FFD2
  82. 2404 LDA #"N":.BYT $2C
  83. 2406 EST LDA #"=
  84. 2408 OUT JSR $FFD2
  85. 2410 LDA #<T3:LDY #>T3
  86. 2411 XSYN BNE SYN
  87. 2412 TTHEN LDA #"T":JSR $FFD2:LDA #"H":JSR $FFD2:LDA #"E":JSR $FFD2:LDA #"N
  88. 2414 BNE OUT
  89. 2416 T[203] LDA #"T":JSR $FFD2:LDA #"O":BNE OUT
  90. 2450 LESS LDX $64:BNE WR[145]G:JMP $B7A8
  91. 2452 WR[145]G JSR INIT:LDA #[179]T4:LDY #[177]T4
  92. 2454 ILL JSR STROUT:JMP ILLQUAN
  93. 2500 FURTHER CMP #58:BNE EXTRA:JMP $A7E1
  94. 2502 EXTRA JSR INIT:LDA #[179]T5:LDY #[177]T5
  95. 2504 QSYN BNE XSYN
  96. 2510 EXTRA2 JSR $79:BNE EXTRA:JMP $B449
  97. 2550 TYPE PHP:JSR INIT:PLP:BCC NUMERIC
  98. 2552 LDA #[179]T6:LDY #[177]T6:BNE S[164]UT
  99. 2554 NUMERIC LDA #[179]T7:LDY #[177]T7
  100. 2556 S[164]UT JSR STROUT:LDX #22:JMP ERR[176]
  101. 2600 BRACKET CMP #")":BNE NEINKL:JMP 43782
  102. 2602 NEINKL JSR INIT:LDA #[179]T8:LDY #[177]T8
  103. 2604 BNE QSYN
  104. 2650 BEREICH JSR 48219:BNE NIX:JMP 48283
  105. 2652 NIX JSR INIT:LDA #[179]T9:LDY #[177]T9:BNE ILL
  106. 2700 [185]I LDA $66:BMI NEGA:JMP $B1BF
  107. 2702 NEGA JSR INIT:LDA #[179]TA:LDY #[177]TA:BNE ILL
  108. 2750 [181]GR LDA $66:BMI FAL:LDA $61:CMP #$91:BCS FAL
  109. 2752 JMP $B801
  110. 2754 FAL JSR INIT:LDA #[179]TB:LDY #[177]TB:BNE ILL
  111. 2800 TWICE CMP $4D:BCC EHEH:JMP $ADCF
  112. 2802 EHEH JSR INIT:LDA #[179]TC:LDY #[177]TC
  113. 2804 QQSYN BNE QSYN
  114. 2850 [161]ERR JSR INIT:LDA #[179]TD:LDY #[177]TD:BNE QQSYN
  115. 2900 [145] CMP #$89:BNE FEHLT:JMP $A957
  116. 2902 FEHLT JSR INIT:LDA #[179]TE:LDY #[177]TE:BNE QQSYN
  117. 2950 [155] CMP #$19:BCS GREAT:JMP $A97F
  118. 2952 GREAT JSR INIT:LDA #[179]TF:LDY #[177]TF:BNE QQSYN
  119. 3000 TEI JSR INIT:LDA #[179]TG:LDY #[177]TG:JMP ILL
  120. 3050 [136] JSR INIT:LDA #[179]TH:LDY #[177]TH:BNE QQSYN
  121. 3100 RVAR JSR INIT:LDA #[179]TI:LDY #[177]TI:BNE QQSYN
  122.